#!/usr/bin/perl
#
# Get all the places with maintainers and re-store them
# so that the newly added link_place_maintainer gets populated.
#
# Should do no harm otherwise.
#

use Counter;

$places = Counter::openfile("places");

@maintainedplaces = $places->select("maintainer <> ''");
print @maintainedplaces + 0, " places found\n";

for $place (@maintainedplaces) {
    print "$$place{name}: $$place{maintainer}\n";
    $place->store();
}
